1 REM SOUND EFFECTS
2 REM HELICOPTER (VIC VERSION)
10 GOSUB 900:GOTO 100
20 POKE FR(0),0:POKE FR(1),0:POKE FR(2),0:POKE FR(3),P(50)
30 POKE VL,0
40 FOR I=0 TO 15:POKE VL,I:NEXT
45 FOR I=0 TO 2:NEXT
50 POKE FR(3),60:FOR I=15 TO 0 STEP-1:POKE VL,I:NEXT
60 FOR I=0 TO 3:POKE FR(I),0:NEXT
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT TO STOP"
110 PRINT".";:IF PEEK(653)>0 THEN END
120 GOSUB 20:GOTO 110
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 DIM FR(3),P(127)
910 FR(0)=36874:FOR I=1 TO 3:FR(I)=FR(I-1)+1:NEXT
920 FOR I=0 TO 127:P(I)=I+128:NEXT
929 REM SET VOLUME ADDRESS
930 VL=36878
990 RETURN